
 
 '   T h e r e m i n o   A u t o m a t i o n   d e m o   p r o g r a m 
 
 
 
 '   B i s t a b l e   b u t t o n   t h a t   c h a n g e s   s t a t e   a n d   c o l o r 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   I N I T I A L I Z A T I O N S 
 
 V a r i a b l e   N u m e r i c   L E D   =   1 
 
 B u t t o n   1   L a b e l   L e d T o g g l e 
 
 G o s u b   L e d O F F 
 
 S t o p 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   F U N C T I O N S 
 
 L a b e l   L e d T o g g l e 
 
 	 I f   S l o t ( L E D )   =   0 
 
 	 	 G o s u b   L e d O N 
 
 	 E l s e 
 
 	 	 G o s u b   L e d O F F 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   L e d O N 
 
 	 S l o t   L E D   =   1 0 0 0 
 
 	 B u t t o n   L e d T o g g l e   T e x t   " L E D   O F F " 
 
 	 B u t t o n   L e d T o g g l e   C o l o r   P o w d e r B l u e 
 
 R e t u r n 
 
 
 
 L a b e l   L e d O F F 
 
 	 S l o t   L E D   =   0 
 
 	 B u t t o n   L e d T o g g l e   T e x t   " L E D   O N " 
 
 	 B u t t o n   L e d T o g g l e   C o l o r   C y a n 
 
 R e t u r n 
 
 
 
 
 
 